home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / M-More Monthly Disks / (c)m1.d64 / ideal mass.z (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  8KB  |  172 lines
  1. 0 PRINT "[147]IDEAL BODY MASS" :PRINT
  2. 1 PRINT "DO YOU WANT INFORMATION REGARDING THIS  PROGRAM (Y/N)? ":INPUTFF$
  3. 2 IF FF$ = "N" THEN  GOTO 47
  4. 3 PRINT :PRINT "THIS PROGRAM TELLS YOU WHAT YOUR MASS"
  5. 4 PRINT "SHOULD BE BASED ON DATA ADAPTED FROM THE"
  6. 5 PRINT "BOOK (MASSES IN THIS BOOK WERE SUB-"
  7. 6 PRINT "TRACTED BY 3 TO GIVE MASSES IN BED"
  8. 7 PRINT "CLOTHING, WHICH WERE USED IN THIS"
  9. 8 PRINT "PROGRAM), 'NORMAL & THERAPEUTIC NUTRI-
  10. 9 [153] "TION', (13TH EDITION), BY C.H.ROBINSON,"
  11. 10 [153] "1972, P.848 (MACMILLAN). HEIGHT LIMIT-"
  12. 11 [153] "ATIONS ARE, FOR WOMEN: 5-0 TO 5-10;"
  13. 12 [153] "FOR MEN: 5-4 TO 6-3 (NO SHOES). IDEAL"
  14. 13 [153] "MASSES GIVEN ARE FOR BED CLOTHING AND"
  15. 14 [153] "ARE FOR MEN AND WOMEN OF AGES
  16. 15 PRINT "25 AND OVER (FOR GIRLS 18-25, SUBTRACT"
  17. 16 PRINT "1 POUND FOR EACH YEAR UNDER 25)."
  18. 17 PRINT : PRINT : INPUT "PRESS 'ANY LETTER, THEN RETURN' TO CONTINUE!";A$
  19. 18 PRINT "IN ADDITION TO IDEAL MASSES, THIS PROGRAM"
  20. 19 PRINT "ESTIMATES OBESITY, BODY FAT, BODY SURFACE"
  21. 20 PRINT "AREA, AND TOTAL BODY WATER. THESE ARE"
  22. 21 PRINT "APPLICABLE TO THOSE OVER THE AGE OF 16."
  23. 22 PRINT "GENERALLY, THE % TOTAL BODY WATER
  24. 23 [153] "IS LOWER IN FEMALES THAN IN MALES.  FURTHER, THE % OF WATER IN LEAN"
  25. 24 [153] "PERSONS IS HIGHER THAN IN OBESE PERSONS. ABOUT"
  26. 25 [153] "55-60% OF THE BODY MASS IS WATER."
  27. 26 [153] "A DEVIATION OF NOT MORE THAN 10% ABOVE"
  28. 27 [153] "OR BELOW THE DESIRABLE MASS FOR AN"
  29. 28 [153] "INDIVIDUAL IS NOT CONSIDERED SIGNIFI-"
  30. 29 [153] "CANT. THE TERM 'OVERWEIGHT' IS GENERAL-"
  31. 30 [153] "LY APPLIED TO PERSONS WHO ARE 10-20% ABOVE THE DESIRABLE MASS."
  32. 31 [153]"'OBESITY' IS APPLIED TO PERSONS WHO ARE ABOUT 20% OR MORE OVERWEIGHT."
  33. 32 [153] : [153] : [133] "PRESS 'ANY LETTER, THEN RETURN' TO CONTINUE!";A$
  34. 33 [153] "IN THIS PROGRAM, OBESITY IS DETERMINED"
  35. 34 [153] "BY A CRITICAL OBESITY INDEX BASED UPON"
  36. 35 [153] "'QUETELET'S INDEX' (QI). THIS CRITICAL"
  37. 36 [153] "INDEX IS REACHED WHEN THE PERSON'S"
  38. 37 [153] "MASS IS ABOUT 18% ABOVE THE MAXIMUM"
  39. 38 [153] "IDEAL MASS.  QI IS ALSO USED TO ESTIMATE BODY FAT (BF).  THE BF"
  40. 39 [153]"VIA QI IS IN GOOD AGREEMENT WITH THE VALUE FROM"
  41. 40 [153] "TOTAL BODY WATER USING: %BF=100-(137*MASS WATER/BODY MASS)."
  42. 41 [153] : [153]:[153]"MORE REFERENCES:  HUME & WEYERS, "
  43. 42 [153]"J.CLIN. PATH.,VOL.24,PP.234-238 (1971); JAMES,"
  44. 43 [153] "(A DHSS/MRC REPORT) HER MAJESTY'S"
  45. 44 [153] "STATIONERY OFFICE, LONDON, 1976 (ISBN 0 11 450034 7)."
  46. 45 [153] "REMARKS ARE TO BE FOUND IN THE PROGRAM LISTING."
  47. 46 [153] : [153] : [133] "PRESS 'ANY LETTER, THEN RETURN' TO CONTINUE!";A$
  48. 47 [153] : [153]
  49. 48 [134] W$(30,5):[143] HEIGHT & MASSES FOR SMALL, MEDIUM, & LARGE BODY FRAMES
  50. 49 [129] J [178] 1 [164] 30
  51. 50 [129] K [178] 1 [164] 4
  52. 51 [135] W$(J,K)
  53. 60 [139] W$(J,1) [178] "ZERO" [167] J [178] J [171] 1: [137] 80
  54. 70 [130] K,J
  55. 80 [133] "LIST YOUR SEX (FEMALE=1; MALE=2) ";S
  56. 81 [153] "WHAT IS YOUR HEIGHT TO NEAREST INCH (E.G. 5-10) (NO SHOES) ":[133]H$
  57. 82 [153] "WHAT IS YOUR BODY FRAME SIZE? (SMALL=1; MEDIUM=2; LARGE=3) ":[133]F
  58. 83 [153] "WHAT IS YOUR MASS (IN POUNDS WITH BED CLOTHING)? ":[133]WT
  59. 85 PW [178] WT
  60. 90 [145] S [137] 91,195
  61. 91 [153] : [153] "--------------------------------------"
  62. 92 TV [178]  [197] ( [202] (H$,1,1)) [172] 12 [170]  [197] ( [202] (H$,3))
  63. 93 [139] F[179][178]1 [175] TV[179]60 [167] [153]:[153]"BECAUSE YOUR FRAME IS 'SMALL' AND YOUR";
  64. 94 [139] F[179][178]1 [175] TV[179]60 [167] [153]"HEIGHT IS LESS THAN 5-0, THIS PROGRAM CAN";
  65. 95 [139] F[179][178]1 [175] TV[179]60 [167] [153]"OFFER YOU NO INFORMATION!":[137] 180
  66. 96 [139] F[179][178]1 [175] TV[177]70 [167] [153]: [153]"BECAUSE YOUR FRAME IS 'SMALL' AND YOUR";
  67. 97 [139] F[179][178]1 [175] TV[177]70 [167] [153]"HEIGHT IS MORE THAN 5-10, THIS PROGRAM CAN";
  68. 98 [139] F[179][178]1 [175] TV[177]70 [167] [153]"OFFER YOU NO INFORMATION!": [137] 180
  69. 99 [139] TV[179]60 [176] TV[177]70 [167] [153]: [153] "BECAUSE OF HEIGHT LIMITATIONS, THIS";
  70. 100 [139]TV[179]60[176]TV[177]70[167][153]"PROGRAM CANNOT GIVE YOU YOUR IDEAL MASS!":[137]140
  71. 101 [129] W [178] 1 [164] 11: [143]  THIS IS FOR FEMALES ONLY
  72. 110 L [178] 1
  73. 120 [139] W$(W,L)[178]H$ [167] [153]:[153] "YOUR IDEAL MASS=";W$(W,F [170] 1);:[137] 131
  74. 130 [130]
  75. 131 SS[178][197]([202](W$(W,F[170]1),5))
  76. 132 [139] SS[179]PW [167] [153]"---YOU ARE";[181](((PW[171]SS)[172]100[173]SS)[172]10[170].5)[173]10;
  77. 133 [139] SS[179]PW [167] [153]"% ABOVE YOUR MAXIMUM IDEAL MASS.";
  78. 134 GG [178]  [181] (((PW [171] SS) [172] 100 [173] SS) [172] 10 [170] .5) [173] 10
  79. 135 [139] GG [177] 10 [175] GG [179] 18 [167]  [153] "(YOU ARE CONSIDERED OVERWEIGHT)!"
  80. 136 [153]
  81. 137 [139] F[179][178]1 [167] [153]"BECAUSE YOUR FRAME IS 'SMALL', ADDITIONAL INFORMATION";
  82. 138 [139] F[179][178]1 [167] [153]"ON BODY WATER, ETC. DOES NOT APPLY TO YOU!": [137] 180
  83. 139 [143] IN 140 & 240, H IS HEIGHT IN M & WT MASS IN KG OF FEMALES AND MALES
  84. 140 H [178]  [197] ( [202] (H$,1,1)) [172] 12 [170]  [197] ( [202] (H$,3))
  85. 141 H [178] H [172] .0254:WT [178] WT [172] .45359
  86. 143 [143] IN 145 & 245,Q IS QUETELET'S INDEX FOR FEMALES AND MALES RESPECTIVELY
  87. 144 [143] USED TO DETERMINE BODY FAT AND WHETHER A PERSON IS OBESE
  88. 145 QI [178] WT [173] (H [172] H)
  89. 148 [143] LINES 150-160 250-260 FIND IF OBESITY EXISTS FOR FEMALES AND MALES
  90. 150 [139] F[178]2[175] QI[177]27.0 [167] [153]"YOU ARE ALSO OVER THE CRITICAL OBESITY INDEX";
  91. 151 [139] F[178]2[175] QI[177]27.0 [167] [153]"---START DIETING!": [137] 165
  92. 155 [139] F[178]3 [175] QI[177]29.5[167][153]"YOU ARE ALSO OVER THE CRITICAL OBESITY INDEX";
  93. 156 [139] F[178]3 [175] QI[177]29.5[167] [153]"---START DIETING!": [137] 165
  94. 160 [153]: [153]"YOU ARE UNDER THE CRITICAL OBESITY INDEX---CONGRATULATIONS!"
  95. 162 [143] LINES 165 AND 265 ALLOW DETERMINATION OF BODY FAT IN WOMEN AND MEN
  96. 163 [143]#'S 170 & 270 FIND BODY SURFACE AREAS FOR WOMEN & MEN, RESPECTIVELY
  97. 164 [143]#'S 175 & 275 ALLOW DETERMINATION OF BODY WATER
  98. 165 WF[178]1.48[172]QI[171]7: [153]: [153] "YOUR BODY FAT =";[181] (WF [172] 10 [170] .5) [173] 10"%"
  99. 170 BS[178](.007185[172]WT[174].425[172](H[172]100)[174].725):[153]
  100. 171 [153]"YOUR BODY SURFACE AREA IS ABOUT";[181](BS[172]100[170].5)[173]100;
  101. 172 [153]" SQUARE METRES"
  102. 175 WW [178] .183809 [172] WT [170] 34.4547 [172] H [171] 35.270121
  103. 177 [153]:[153]"YOUR TOTAL BODY WATER IS ABOUT";[181](WW[172]10[170].5)[173]10;" LITRES";
  104. 178 [153]"---OR";[181] ((WW [172] 1E02 [173] WT) [172] 10 [170] .5) [173] 10"% BODY MASS)"
  105. 180 [153] "-------------------------------------": [137] 1100
  106. 195 [153]:[153]"-----------":TV[178][197]([202](H$,1,1))[172]12[170][197]([202](H$,3))
  107. 196 [139] F[179][178]1[175]TV[179]64[167][153]:[153]"BECAUSE YOUR FRAME IS SMALL & YOUR HEIGHT";
  108. 197 [139]F[179][178]1[175]TV[179]64[167][153]"LESS THAN 5-4, I CAN'T TELL YOU ANYTHING!":[137]280
  109. 198 [139] F[179][178]1[175]TV[177]95[167][153]"SINCE YOUR FRAME IS SMALL & YOUR HEIGHT IS";
  110. 199 [139]F[179][178]1[175]TV[177]95[167][153]"MORE THAN 6-3, I CAN'T TELL YOU ANYTHING!":[137]280
  111. 200 [139] TV[179]64[176]TV[177]75[167][153]:[153]"BECAUSE OF HEIGHT LIMITS, I CANNOT GIVE ";
  112. 201 [139] TV[179]64[176]TV[177]75[167] [153]"YOU YOUR IDEAL MASS!":[137] 240
  113. 202 [129] W [178] 12 [164] 23: [143]  THIS IS FOR MALES ONLY
  114. 210 L [178] 1
  115. 220 [139] W$(W,L)[178]H$ [167] [153]:[153]"YOUR IDEAL MASS = ";W$(W,F[170]1);:[137] 231
  116. 230 [130]
  117. 231 SS[178][197]([202](W$(W,F[170]1),5))
  118. 232 [139] SS[179]PW [167][153]"---YOU ARE";[181](((PW[171]SS)[172]100[173]SS)[172]10[170].5)[173]10;
  119. 233 [139] SS[179]PW [167][153]"% ABOVE YOUR MAXIMUM IDEAL MASS ";
  120. 234 GG[178][181](((PW[171]SS)[172]100[173]SS)[172]10[170].5)[173]10
  121. 235 [139] GG[177]10 [175] GG[179]18 [167] [153]"(YOU ARE CONSIDERED OVERWEIGHT)!"
  122. 236 [153]
  123. 237 [139] F[179][178]1 [167] [153]:[153]"BECAUSE YOUR FRAME IS SMALL, ADDITIONAL ";
  124. 238 [139] F[179][178]1[167][153]"DETAILS ON BODY WATER, ETC DO NOT APPLY TO YOU!":[137] 280
  125. 240 H[178][197]([202](H$,1,1))[172]12[170][197]([202] (H$,3)):H [178] H [172] .0254:WT [178] WT [172] .45359
  126. 245 QI [178] WT [173] (H [172] H)
  127. 250 [139] F[178]2 [175] QI[177]27.5 [167] [153]:[153]"YOU ARE ALSO OVER THE CRITICAL ";
  128. 251 [139] F[178]2 [175] QI[177]27.5 [167] [153]"OBESITY INDEX---START DIETING!": [137] 265
  129. 255 [139] F[178]3 [175] QI[177]29.9 [167] [153]:[153]"YOU ARE ALSO OVER THE CRITICAL ";
  130. 256 [139] F[178]3 [175] QI[177]29.9 [167] [153]"OBESITY INDEX---START DIETING!":[137]265
  131. 260 [153]: [153]"YOU ARE UNDER THE CRITICAL OBESITY INDEX---CONGRATULATIONS!"
  132. 265 MF[178]1.281[172]QI[171]10.13: [153]: [153]"YOUR BODY FAT =";[181](MF[172]10[170].5)[173]10"%"
  133. 270 BS [178] (.007185 [172] WT [174] .425 [172] (H [172] 100) [174] .725): [153]
  134. 271 [153]"YOUR BODY SURFACE AREA IS ABOUT";[181](BS[172]100[170].5)[173]100;" SQUARE METRES"
  135. 275 MW [178] .296785 [172] WT [170] 19.4786 [172] H [171] 14.012934
  136. 277 [153]:[153]"YOUR TOTAL BODY WATER IS ABOUT";[181](MW[172]10[170].5)[173]10;
  137. 278 [153]" LITRES (ABOUT";[181]((MW[172]1E02[173]WT)[172]10[170].5)[173]10;"% BODY MASS)"
  138. 280 [153] "-------------------------------------": [137] 1100
  139. 490 [143]  LINE #'S 500-600 CONTAIN HEIGHT MASS DATA FOR FEMALES ONLY
  140. 495 [143]  WHILE #'S 750-860 CONTAIN HEIGHT MASS DATA FOR MALES ONLY
  141. 500 [131]  "5-0", "99-107","104-116","112-128"
  142. 510 [131]  "5-1","102-110","107-119","115-131"
  143. 520 [131]  "5-2","105-113","110-123","118-135"
  144. 530 [131]  "5-3","108-116","113-127","122-139"
  145. 540 [131]  "5-4","111-120","117-132","126-143"
  146. 550 [131]  "5-5","115-124","121-136","130-147"
  147. 560 [131]  "5-6","119-128","125-140","134-151"
  148. 570 [131]  "5-7","123-132","129-144","138-155"
  149. 580 [131]  "5-8","127-137","133-148","142-160"
  150. 590 [131]  "5-9","131-141","137-152","146-165"
  151. 600 [131]  "5-10","135-145","141-156","150-170"
  152. 750 [131]  "5-4","118-126","124-136","132-149"
  153. 760 [131]  "5-5","121-130","127-140","135-153"
  154. 770 [131]  "5-6","125-134","131-144","139-158"
  155. 780 [131]  "5-7","129-138","135-149","144-163"
  156. 790 [131]  "5-8","133-142","139-153","148-167"
  157. 800 [131]  "5-9","137-147","143-157","152-171"
  158. 810 [131]  "5-10","141-151","147-162","156-176"
  159. 820 [131]  "5-11","145-155","151-167","161-181"
  160. 830 [131]  "6-0","149-159","155-172","165-186"
  161. 840 [131]  "6-1","153-164","159-177","170-191"
  162. 850 [131]  "6-2","157-168","164-182","175-196"
  163. 860 [131]  "6-3","161-172","169-187","179-187"
  164. 1000 [131]  ZERO
  165. 1100 [133] "DO YOU WANT ANOTHER EVALUATION (Y/N)? ";EV$
  166. 1110 [139] EV$ [178] "Y" [167]  [137] 80
  167. 1120 [128]
  168. 1130 [143] PROGRAM ADAPTED FOR COMMODORE MACHINES BY PETER SPENCER APRIL 1983
  169. 1140 [143] STILL NEEDS CONVERSION TO CENTIMETRES FOR HEIGHT
  170. 1150 [143] AND KILOGRAMS FOR MASS, ALTHOUGH SOME INTERNAL VARIABLES ALREADY
  171. 1160 [143] USE THESE.
  172.